#-----------------------------------------------------------#
#  죄와벌++ 이율배반 										#
#  Copyright(C) 2001-2002 by Vivid Studio.  BLANK BOARD		#
#  Vivid Studio. [ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 토벌 Version 1.1
#--- [주의 사항] --------------------------------------------#
# 1. 이 스크립트는 이하의 이용 규정에 따라 배포하고 있습니다. 	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
#토벌 메뉴
sub subdue{
	$wall="subdue";
	$layout_flag=1;
	if(!$type){

		$log .= "에르타니아의 땅에 만연하는 마물을 토벌 합니다. <br>성공하면 지위와 상금을 획득할 수 있습니다.<br>\n";
		$tm=0;
		$type='토벌';
		&call_mapdata if($mv_mode eq 'pc');

		&subdue_menu;

	}elsif($type eq '토벌'){ &subdue_exe }

	&dat_write;
}

sub subdue_menu{
	$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
	$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
	$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;

	$log2 .=qq|<select name="cmd" size="1">\n|;
	$log2 .=qq|<option value="0">그만둔다</option>\n|;
	foreach(1 .. 5){ $log2 .=qq|<option value="$_">$cmp[$_]</option>\n|;}
	$log2 .=qq|</select><br>\n|;
	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}

#-------------------------------------------------------------------------------
#토벌 처리(토벌 >> 토벌중에 이행까지)
sub subdue_exe{

	if(!$tm){

		# if($cmd<=0 || $cmd>$#cmp){ 오리지날
		if($cmd<=0 || $cmd>7){
			$log .= "다시 찾아주세요…<br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
		}elsif($cmd){

			if($camp<1){
				$log .= "방랑의 몸으로 토벌은 실시할 수 없습니다.<br>\n";
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
			}else{
				my $x	= int($g_p[$rank]/3);
				if($max_sol<=$my_cs){
					$sol= $max_sol;
				}elsif($max_sol>$my_cs){
					$sol= $my_cs;
				}
				my $y	= int($sol/10);
				$wall=$cmpimg[$cmd];
	
				$log .= "$cmp[$cmd]의 마물을 토벌 합니다<br>\n";
	
				$log .= "탐색을 시작합니다.<br>\n";
				$nation=$cmd;
				$tm=0;
				if ($cmd==6) {
					$type='증거'
				}else{
					$type='토벌중';
				}
				# 행동 세션 가산
				$act_cnt++;

				$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
				$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
				$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;

				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
			}
		}
	}
	&dat_write;
}





1;